home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today - The Disc! 5 / CD-ROM Today - The Disc (Issue 5)(November 1994).ISO / mac / DHA demo / Don Norman Folder / The Library / The Library.rsrc / CSTR_7597_helpRezCSTR < prev    next >
Encoding:
Text File  |  1994-09-21  |  1.1 KB  |  44 lines
  1. global gHTile, gTToolsInstalled, gTTKName
  2. if (gTToolsInstalled = "true") then
  3. put tStr("EBTMsg",42) into wn
  4. put getStackPath() & gTTKName into sn
  5. else
  6. put tStr("LibMsg",32) into wn
  7. put getstackpath() & "the library" into sn
  8. end if
  9. if there is not a window wn then
  10. put 0 into gHTile
  11. cbusy
  12. get wn
  13. maxmem
  14. if WinSpace(it,"R") then
  15. textxwindow 32051, wn, true,5
  16. if there is a window wn then
  17. isEBW wn
  18. set saveFileName of window wn to sn
  19. set saveRezName of window wn to wn
  20. put offsetR("5,40,318,240") into r
  21. set rect of window wn to r
  22. set neverwrap of window wn to true
  23. if (the optionkey = "down") then
  24. set saveChanges of window wn to true
  25. set saveMethod of window wn to "Resource"
  26. set returnclickline of window wn to false
  27. set editstate of window wn to 2
  28. else
  29. set saveChanges of window wn to false
  30. end if
  31. set saveAlertID of window wn to GetDlgID(328)
  32. send readRez to window wn
  33. set lineheight of window wn to 15
  34. set the textselection of window wn to "0,0"
  35. set ClickHandlerName of window wn to "HWClick"
  36. set visible of window wn to true
  37. send endEdit to window wn
  38. else
  39. lomem wn
  40. end if
  41. else
  42. lomem wn
  43. end if
  44. end if